home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / drip < prev    next >
Internet Message Format  |  1995-03-31  |  4KB
  1. Path: seq!spell
  2. From: Douglas R. Cannon <dougc@bert.cs.byu.edu>
  3. Subject:  v01i006:  drip - Animation Program, Part01/01
  4. Newsgroups: comp.sources.hp48
  5. Followup-To: comp.sys.hp48
  6. Approved: spell@seq.uncwil.edu
  7.  
  8. Submitted-by: Douglas R. Cannon <dougc@bert.cs.byu.edu>
  9. Posting-number: Volume 1, Issue 6
  10. Archive-name: drip/part01
  11.  
  12. BEGIN_DOC drip.doc
  13. Ok. Here's what happened:
  14. I was bored this morning (7/23/91) My wife was in summer term classes, and
  15. my 6 month old daughter that I was home tending was asleep. So, as a result
  16. this silly animation program was created.
  17.  
  18.    This program is shareware. If you like it, then send $0.06 to the programmer
  19. at 178 Wymount #4A  Provo, UT 84604. If I can get just 3 people to register,
  20. then I will have enough money to finance my next project.
  21.  
  22.    The program (fondly called 'DRIP') is a mere 1.8Kbytes and worth even
  23. less. But, if you decide to give it a try, it will create a directory, and
  24. in this directory will be 17 programs! Run setup, and then there will only be
  25. 15. Then run DRIP. After you're done, press a key to end.  The other stuff in
  26. the directory are graphics objects. You can do whatever you please to this
  27. program (If you've registered your copy, of course) and I hope you enjoy it!!
  28.  
  29.    You will surely notice that the program DRIP is not written elegantly as I
  30. might otherwise have done ( I hate un-elegant code! ) but, of course, this
  31. is an animation, and speed is of the essence! The code is large, but the wait
  32. time is small, as this was the objective.
  33.  
  34. Douglas R. Cannon
  35. dougc@bert.cs.byu.edu
  36.  
  37. END_DOC
  38.  
  39. BYTES: #2AC1h 1980
  40.  
  41. BEGIN_RPL drip
  42. %%HP: T(3)A(R)F(.);
  43. DIR
  44.   SETUP
  45.     \<< FAUC ST\->
  46. 'FAUC' STO { SETUP
  47. ST\-> } PURGE
  48.     \>>
  49.   ST\->
  50.     \<< \-> S
  51.       \<< "" 1 S SIZE
  52.         FOR N S N
  53. GET +
  54.         NEXT STR\->
  55.       \>>
  56.     \>>
  57.   DRIP
  58.     \<< 0 \-> DONE
  59.       \<< ERASE {
  60. # 0d # 0d } PVIEW
  61. PICT { # 0d # 14d }
  62. FAUC REPL PICT {
  63. # 0d # 62d } WAT
  64. REPL PICT { # 84d
  65. # 59d }
  66. "DOUG CANNON" 1
  67. \->GROB REPL
  68.         DO 1 9
  69.           FOR N
  70. PICT { # 22d # 30d
  71. } FSH N GET REPL 2
  72. RAND * N / WAIT
  73.             IF KEY
  74.             THEN 9
  75. 'N' STO DROP 1
  76. 'DONE' STO
  77.             END
  78.           NEXT PICT
  79. { # 22d # 30d } D
  80. REPL PICT { # 22d
  81. # 33d } D REPL PICT
  82. { # 22d # 36d } D
  83. REPL PICT { # 22d
  84. # 39d } D REPL PICT
  85. { # 22d # 42d } D
  86. REPL PICT { # 22d
  87. # 45d } D REPL PICT
  88. { # 22d # 48d } D
  89. REPL PICT { # 22d
  90. # 51d } D REPL PICT
  91. { # 19d # 54d } H1
  92. REPL 8000 RAND *
  93. .005 BEEP PICT {
  94. # 17d # 57d } H2
  95. REPL PICT { # 15d
  96. # 58d } H3 REPL
  97. PICT { # 14d # 59d
  98. } H4 REPL PICT {
  99. # 13d # 58d } H5
  100. REPL PICT { # 12d
  101. # 58d } H6 REPL
  102. PICT { # 11d # 58d
  103. } H7 REPL PICT {
  104. # 10d # 59d } H8
  105. REPL PICT { # 10d
  106. # 60d } H9 REPL
  107. PICT { # 8d # 61d }
  108. H10 REPL
  109.         UNTIL KEY
  110. DONE OR
  111.         END
  112.         IF DONE NOT
  113.         THEN DROP
  114.         END
  115.       \>>
  116.     \>>
  117.   FAUC {
  118. "GROB 27 16 00C0C00000EFF10070EFF100F1CCC000F30C0000FFFFF700FFFFFF10FFF"
  119. "FFF30FFFFFF30FFFFFF70F300CF70F1000F7070000E7000000E7000000C7000000C70"
  120. }
  121.   WAT
  122. GROB 51 2 CFFFFFFFFFF700FFFFFFFFFFFF70
  123.   D
  124. GROB 5 9 00000040E0F1F1F1E0
  125.   FSH { GROB 5 1 C0
  126. GROB 5 1 E0
  127. GROB 5 2 E1C0
  128. GROB 5 3 E1E1C0
  129. GROB 5 4 E1F1F1E0
  130. GROB 5 5 E0F1F1F1E0
  131. GROB 5 6 E0E0F1F1F1E0
  132. GROB 5 7 C0E0F1F1F1F1E0
  133. GROB 5 8 80C0C0E0F1F1F1E0
  134. }
  135.   H1
  136. GROB 11 9 000000000000020007008F008F00BF607770
  137.   H2
  138. GROB 15 6 000008000C102E32FEB7FFF7
  139.   H3
  140. GROB 19 4 000000002000E07830FBFE70
  141.   H4
  142. GROB 21 3 E000E0F308F1E1E0F0
  143.   H5
  144. GROB 23 5 600003F00087600003000000FF3EF7
  145.   H6
  146. GROB 25 6 60000C00F0000E1060000C0000000000FF10FF10FF7CFF10
  147.   H7
  148. GROB 27 6 0000000060000030F000087060000030FFF8FF70FFFFFF70
  149.   H8
  150. GROB 29 4 00000000600000C0F00000E1FFFBFFF1
  151.   H9
  152. GROB 29 3 0000000030000081FFFFFFF1
  153.   H10
  154. GROB 31 1 00000000
  155. END
  156. END_RPL
  157. -----------------------------------------
  158. Oh, BTW, if you think you really need to send me $0.06, then don't.
  159.